home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / ssspcb20.zip / NUMBER11.ZIP / NUMBERS.PPS < prev   
Text File  |  1996-04-27  |  1KB  |  51 lines
  1. ; **************************
  2. ; *   Phone Numbers 1.1    *
  3. ; *    PPE for PCBoard     *
  4. ; *    by Guy Damlovac     *
  5. ; *         4/27/96        *
  6. ; *   Copyright (C) 1996   *
  7. ; *    Shuttle Software    *
  8. ; *   All Rights Reserved  *
  9. ; **************************
  10.  
  11. ; This program is FREEWARE!  You may modify it as much as you like to better
  12. ; suit your system's needs!  Please DO NOT distribute the modified source.
  13.  
  14. INTEGER X
  15. INTEGER Users
  16.  
  17. BEGIN
  18. ;
  19. ; Make sure that the line below has the correct path to your users file!
  20. ;
  21. Users = FILEINF("C:\PCB\MAIN\USERS",4) / 400
  22. IF (Users > 0) THEN
  23.   COLOR @X00
  24.   CLS
  25.   COLOR @X0F
  26.   STARTDISP FNS
  27.   GOSUB Generate
  28.   PRINTLN
  29.   PRINTLN "@X0A",Users," User Records Scanned for VERIFIED.DAT"
  30.   PRINTLN
  31.   WAIT
  32.   STARTDISP FCL
  33. ELSE
  34.   PRINTLN "@X0CUsers File Indicates 0 Records!"
  35.   WAIT
  36. ENDIF
  37. END
  38.  
  39. :Generate
  40.   FCREATE 1,PPEPATH()+"VERIFIED.DAT",O_WR,S_DB
  41.   FOR X = 1 to Users
  42.     GETALTUSER X
  43.     FPUTLN 1,U_HVPHONE,":",U_NAME()
  44.     PRINTLN U_HVPHONE,":",U_NAME()
  45.     FPUTLN 1,U_BDPHONE,":",U_NAME()
  46.     PRINTLN U_BDPHONE,":",U_NAME()
  47.   NEXT X
  48.   FCLOSE 1
  49.   LOG "-=≡[ VERIFIED.DAT Updated ]≡=-",FALSE
  50. RETURN
  51.